home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / 4dostool / 4mica26.zip / 4MICA.BTM next >
Text File  |  1992-06-25  |  12KB  |  537 lines
  1.  
  2. :SETUP
  3. setlocal
  4. unalias *
  5. echo off
  6. alias spt scrput
  7. alias srn screen
  8. alias clswhbl cls whi on bla
  9. alias clsbluwh cls blu on whi
  10. alias db drawbox
  11. set ART=1
  12. set CF=0
  13. set CE=0
  14. set ND=%_CWD
  15. set CDR=` Path: `%_CWD 
  16. set FT=%@PATH[%@SEARCH[4MICA.BTM]]
  17.  
  18. :BEGIN
  19. clsbluwh
  20. db 7 18 15 58 1 bri whi on blu fill blu sha
  21. spt 8 19 bri blu on cya `▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄`
  22. spt 9 19 bri blu on bla `█                                     █`
  23. spt 9 24 bri yel on blu `∙ 4MICA FILE CONTROL SHELL ∙`
  24. spt 10 19 bri blu on cya `▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀`
  25. spt 11 19 bri whi on blu `    version 2.60  -  June 25, 1992  `
  26. spt 12 19 bri whi on blu `      Registration is only $9.95    `
  27. spt 13 19 bri whi on blu `    Fill out and print REGISTER.ME  `
  28. spt 14 19 bri whi on blu `               - TODAY -            `
  29. spt 18 9 bri whi on blu ` ┌────┐┌─┐┌─┐┌────┐┌────┐┌────┐┌─┬─┬─┐┌────┐┌────┐┌────┐ ┌─┐`
  30. spt 19 9 bri whi on blu ` │   ─┤│ └┘ ││ ≡≡ ││≡≡  ││  ──┤│ │ │ ││ ≡≡ ││≡≡  ││  ──┤ │ │`
  31. spt 20 9 bri whi on blu ` ├─   ││ ┌┐ ││ ┌┐ ││  ┌┐││  ──┤│     ││ ┌┐ ││  ┌┐││  ──┤ ├─┤`
  32. spt 21 9 bri whi on blu ` └────┘└─┘└─┘└─┘└─┘└──┘└┘└────┘└──┴──┘└─┘└─┘└──┘└┘└────┘ └─┘`
  33. DELAY 3
  34. clsbluwh
  35.  
  36. :START
  37. cls blu on whi
  38. spt 24 8 whi on blu ` copyright 1991, 1992 Geoff Taylor & CelestialWare, All Rights Reserved `
  39. db 1 24 5 55 1 whi on blu shadow
  40. set ULR=18
  41. set ULC=21
  42. set LRR=20
  43. gosub PUT
  44. spt 2 25 cya on bla `▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄`
  45. spt 3 25 cya on bla `█                            █`
  46. spt 3 26 bri whi on blu `∙ 4MICA FILE CONTROL SHELL ∙`
  47. spt 4 25 cya on bla `▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀`
  48. set FND=%FT%4mica.ndx
  49. set OPT=
  50. set OPT=%@SELECT[%fnd,8,19,17,60]
  51. set OPT=%@SUBSTR[%opt,1,3]
  52. iff "%OPT"=="" then
  53.  goto EXIT
  54. elseiff "%OPT"=="Cre" then
  55.  goto SCR
  56. elseiff "%OPT"=="Con" then
  57.  goto SCN
  58. elseiff "%OPT"=="Inf" then
  59.  goto INFO
  60. elseiff "%OPT"=="Vie" then
  61.  goto SVW
  62. elseiff "%OPT"=="Min" then
  63.  gosub SMN
  64.  goto START
  65. elseiff "%OPT"=="Ext" then
  66.  goto SXT
  67. endiff
  68. goto START
  69.  
  70. :PUT
  71. set LRC=%@LEN[%CDR]
  72. set LRC=%@EVAL[%LRC+%ULC+1]
  73. db %ULR %ULC %LRR %LRC 1 bri whi on blu fill blu sha
  74. spt %@EVAL[%ULR+1] %@EVAL[%ULC+1] bri whi on blu %CDR
  75. return
  76.  
  77. :INFO
  78. cls bri whi on bla
  79. text
  80.  
  81.   4MICA version 2.60
  82.   Geoff Taylor
  83.   CelestialWare
  84.   3549 Laurel View Lane
  85.   Birmingham, AL 35216
  86.   (205)/823-0444
  87.  
  88.      4MICA is released into SHAREWARE by Geoff Taylor of CelestialWare.
  89.      4MICA v2.60 is in every  way I can see, bug free.  At any rate, PLEASE
  90.      take precautions against data loss. I can not be held  responsible for
  91.      any such losses that might occur but, most likely this will not happen.
  92.  
  93.      4MICA IS NOT FREE ! ! !  You are hereby  licensed to use  this product
  94.      for a trial  period of thirty (30) days free of charge. If you  decide
  95.      that you  would like to  continue  using  4MICA,  please complete  the
  96.      registration  form (REGISTER.ME)  and   return  it with  the  required
  97.      registration  fee ($9.95 + S/H) enclosed.
  98.  
  99.      4DOS is a registered trademark of J.P. Software
  100.      ARJ is a registered trademarks of Robert K. Jung
  101.      LHA is a registered trademark of Haruyasu Yoshizaki
  102.      PKZIP is a registered trademark of PKWARE
  103.  
  104. endtext
  105. pause Hit any Key...
  106. goto START
  107.  
  108. :SCN
  109. cls blu on whi
  110. set ULR=11
  111. set ULC=4
  112. set LRR=13
  113. gosub PUT
  114. set FND=%FT%convert.ndx
  115. set OPT=
  116. set OPT=%@SELECT[%fnd,2,2,8,21,Convert Archieve]
  117. set OPT=%@SUBSTR[%opt,1,2]
  118. if exist zip del /q zip
  119. if exist arj del /q arj
  120. if exist lha del /q lha
  121. iff "%OPT"=="" then
  122.  goto START
  123. elseiff "%OPT"=="ZI" then
  124.  set art=1
  125.  if exist *.zip goto SCN1
  126.  if exist *.arj goto SCN1
  127.  set nae=ZIP OR ARJ FILES
  128.  gosub MSG
  129.  goto SCN
  130. elseiff "%OPT"=="AR" then
  131.  set art=0
  132.  if exist *.arj goto SCN1
  133.  if exist *.lzh goto SCN1
  134.  set nae=ARJ OR LHA FILES
  135.  gosub MSG
  136.  goto SCN
  137. elseiff "%OPT"=="LH" then
  138.  set art=2
  139.  if exist *.lzh goto SCN1
  140.  if exist *.zip goto SCN1
  141.  set nae=LHA OR ZIP FILES
  142.  gosub MSG
  143.  goto SCN
  144. elseiff "%OPT"=="Mi" then
  145.  gosub SMN
  146.  goto SCN
  147. elseiff "%OPT"=="Ma" then
  148.  goto START
  149. elseiff "%OPT"=="Ex" then
  150.  goto EXIT
  151. endiff
  152. goto SCN
  153.  
  154. :SCN1
  155. md 4mtemp
  156. set nm=0
  157. set ln=0
  158. if "%art"=="0" select dir /b [*.arj;*.lzh] >> dearc.tmp
  159. if "%art"=="1" select dir /b [*.zip;*.arj] >> dearc.tmp
  160. if "%art"=="2" select dir /b [*.lzh;*.zip] >> dearc.tmp
  161. if exist dearc.tmp goto PRNT
  162. rd 4mtemp
  163. goto SCN
  164.  
  165. :PRNT
  166. set ln=%@LINE[dearc.tmp,%nm]
  167. if "%ln"=="**EOF**" goto FIN
  168. set fs=%@FILESIZE[%ln,b]
  169. set fln=%ln
  170. set ln=%@NAME[%ln]
  171. if "%art"=="0" goto RJ
  172. if "%art"=="2" goto RL
  173.  
  174. if exist %ln%.lzh goto FEXT
  175. if "%@EXT[%fln]"=="zip" pkunzip %ln %_CWD%\4mtemp
  176. if "%@EXT[%fln]"=="arj" arj x -y+ %ln %_CWD%\4mtemp
  177. echo.
  178. pushd
  179. cd 4mtemp
  180. lha a %ln *.*
  181. popd
  182. copy /q 4mtemp\*.lzh %_cwd
  183. if "%@EXT[%fln]"=="zip" del /q %ln%.zip
  184. if "%@EXT[%fln]"=="arj" del /q %ln%.arj
  185. goto ART1
  186.  
  187. :RJ
  188. if exist %ln%.zip goto FEXT
  189. if "%@EXT[%fln]"=="arj" arj x -y+ %ln %_CWD%\4mtemp
  190. if "%@EXT[%fln]"=="lzh" lha x %ln%.lzh %_CWD%\4mtemp\
  191. echo.
  192. pushd
  193. cd 4mtemp
  194. pkzip -wHS %ln *.*
  195. popd
  196. copy /q 4mtemp\*.zip %_cwd
  197. if "%@EXT[%fln]"=="arj" del /q %ln%.arj
  198. if "%@EXT[%fln]"=="lzh" del /q %ln%.lzh
  199. goto ART1
  200.  
  201. :RL
  202. if exist %ln%.arj goto FEXT
  203. if "%@EXT[%fln]"=="lzh" lha x %ln %_CWD%\4mtemp\
  204. if "%@EXT[%fln]"=="zip" pkunzip %ln %_CWD%\4mtemp
  205. echo.
  206. pushd
  207. cd 4mtemp
  208. arj a -y+ -jm1 -jt %ln *.*
  209. popd
  210. copy /q 4mtemp\*.arj %_cwd
  211. if "%@EXT[%fln]"=="lzh" del /q %ln%.lzh
  212. if "%@EXT[%fln]"=="zip" del /q %ln%.zip
  213.  
  214. :ART1
  215. iff "%art"=="0" then set fs1=%@FILESIZE[%ln%.zip,b]
  216.   elseiff "%art"=="1" then set fs1=%@FILESIZE[%ln%.lzh,b]
  217.   elseiff "%art"=="2" then set fs1=%@FILESIZE[%ln%.arj,b]
  218. endiff
  219. echo.
  220. echo Original Size -  %fs
  221. echo New Size      -  %fs1
  222. echo Savings Size  -  %@EVAL[%fs-%fs1]
  223. *del /qy 4mtemp\*.*
  224. set nm=%@EVAL[%nm+1]
  225. set ts=%@EVAL[%ts+%fs]
  226. set ts1=%@EVAL[%ts1+%fs1]
  227. goto PRNT
  228.  
  229. :FIN
  230. rd 4mtemp
  231. del /q dearc.tmp
  232. echo.
  233. echo Total Files   -  %nm
  234. echo Total Size    -  %ts
  235. echo New Size      -  %ts1
  236. echo Savings Size  -  %@EVAL[%ts-%ts1]
  237. echo.
  238. set fs=
  239. set fs1=
  240. set ts=
  241. set ts1=
  242. pause Hit any key...
  243. goto SCN
  244.  
  245. :FEXT
  246. echo File cannot be converted! It already exists!
  247. rd 4mtemp
  248. del /q dearc.tmp
  249. pause Hit any key...
  250. goto SCN
  251.  
  252. :SVW
  253. cls blu on whi
  254. set ULR=9
  255. set ULC=4
  256. set LRR=11
  257. gosub PUT
  258.  set FND=%FT%view.ndx
  259.  set OPT=
  260.  set OPT=%@SELECT[%FND,2,2,7,25,View File Archieve]
  261.  set OPT=%@SUBSTR[%OPT,1,2]
  262. iff "%OPT"=="" then
  263.  goto START
  264. elseiff "%OPT"=="Se" then
  265.  if exist *.arj .or. exist *.zip .or. exist .lzh. goto CNT
  266. gosub NOARC
  267. goto SVW
  268.  
  269. :CNT
  270.  set pa=
  271.  color bri whi on bla
  272.  dir /k/m *.arj;*.lzh;*.zip > vwfiles.tmp
  273.  set PA=%@SELECT[vwfiles.tmp,2,2,7,42,Select File to View]
  274. *del /q vwfiles.tmp
  275.  set PA=%@SUBSTR[%PA,0,12]
  276.  set EXT=%@EXT[%PA]
  277.  cls
  278.  iff "%EXT"=="zip" then
  279.   pkunzip -v %PA
  280.  elseiff "%EXT"=="arj" then
  281.   arj l %PA
  282.  elseiff "%EXT"=="lzh" then
  283.   lha l %PA
  284.  endiff
  285.  if "%pa"==""goto SVW
  286.  pause Hit any key...
  287.  goto SVW
  288. elseiff "%OPT"=="Mi" then
  289. gosub SMN
  290.  goto SVW
  291. elseiff "%OPT"=="Ma" then
  292.  goto START
  293. elseiff "%OPT"=="Ex" then
  294.  goto EXIT
  295. endiff
  296. goto SVW
  297.  
  298. :SCR
  299. cls blu on whi
  300. db 10 3 13 36 1 bri whi on blu fill blu sha
  301. spt 11 4 bri whi on blu %CDR
  302. spt 12 5 bri whi on blu `Archiver: `
  303. if "%CF"=="0" spt 12 15 bri whi on blu `ARJ w/ verify ON`
  304. if "%CF"=="1" spt 12 15 bri whi on blu `ARJ w/ verify OFF`
  305. if "%CF"=="2" spt 12 15 bri whi on blu `PKZIP`
  306. if "%CF"=="3" spt 12 15 bri whi on blu `LHA`
  307. set FND=%FT%create.ndx
  308. set OPT=
  309. set OPT=%@SELECT[%FND,2,2,8,26,Create File Archieve]
  310. set OPT=%@SUBSTR[%OPT,1,2]
  311. iff "%OPT"=="" then
  312.  goto START
  313. elseiff "%OPT"=="Co" then
  314.  color bri whi on blu
  315.  db 2 1 5 35 1 bri whi on blu fill blu sha
  316.  spt 2 1 bri whi on blu ┌─────── Create Archieve
  317.  srn 4 3
  318.  input Archieve filename: %%fn
  319.  if "%FN"=="" goto SCR
  320.  if "%CF"=="0" goto an
  321.  if "%CF"=="1" goto af
  322.  if "%CF"=="2" goto zn
  323.  if "%CF"=="3" goto ln
  324.  goto SCR
  325. elseiff "%OPT"=="Se" then
  326.  set FND=%FT%select.ndx
  327.  set OPT=
  328.  set OPT=%@SELECT[%FND,2,2,8,22,Compression Formats]
  329.  set FRM=%@SUBSTR[%OPT,1,1]
  330.  set OPT=%@substr[%opt,13,1]
  331.  if "%FRM"=="A" .and. "%O